home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / DUMPHEX.INC < prev    next >
Encoding:
Text File  |  1984-07-13  |  254 b   |  19 lines
  1.  
  2. PROCEDURE dumphex(a:INTEGER);
  3.  
  4. CONST
  5.   HEX = '0123456789ABCDEF';
  6. VAR
  7.   inter,i : BYTE;
  8.  
  9. BEGIN
  10.    FOR i := 1 TO 4 DO
  11.    BEGIN
  12.    inter := a SHR 12;
  13.    a     := a SHL 4;
  14.    WRITE (COPY(hex,inter+1,1));
  15.    END;
  16.    WRITE ('  ');
  17.    END;
  18.  
  19.